home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / A-Newest / Quittner.d64 / read seq file (.txt) next >
Commodore BASIC  |  2009-01-03  |  577b  |  23 lines
  1. 0 REM "READ SEQ FILE BY [202]OE [209]UITTNER
  2. 10 [153][199](144)[199](14)
  3. 100 [137]8000
  4. 997 [151]204,0:[161]G$:[139]G$[178]""[167]997
  5. 998 [139][194](207)[167]998
  6. 999 [151]204,1:[142]
  7. 4000 :[143]"   (null)RINTER. (null)RINTERS DIFFER, THIS WORKS FOR THE ONE RIGHT$ USE.
  8. 4010 PRINT"  [208]RINTER ON? ";:GOSUB997:PRINTG$
  9. 4012 P=0:IFG$<>"Y"THENRETURN
  10. 4020 P=1:IFP1THENRETURN
  11. 4021 P1=1:CLOSE5:CLOSE7:OPEN5,4,5:OPEN7,4,7
  12. 4030 FORI=1TO10
  13. 4032 PRINT#5,CHR$(27)CHR$(108)CHR$(5):REM" [204]EFT MARGIN=5
  14. 4034 [152]5,[199](27)[199](81)[199](77):[130]:IGHT MARGIN[178]77
  15. 4039 [153]"  (null)ET RIGHT$NTERFACE TO MID$UNIOR":[141]997:[142]
  16. 8000 :[143]" (null)EAD FILE FROM DISK
  17. 8002 GOSUB4000:INPUT" [198][201][204][197][206][193][205][197]";F$:IFPTHENPRINT#7,F$":"
  18. 8010 OPEN 8,8,8,"0:"+F$+",S,R
  19. 8012 :[161]#8,H$:S[178]ST:[139]P[167][152]7,H$;
  20. 8013 [153]H$;:[139] S[178]0 [167]8012
  21. 8020 :[153]:[160]8:[139]P[167][152]7
  22. 8021 [128]
  23.